1 '*** OISAC 2 *** LABY ***
10 CLS:DEFSEG=0:CLEAR:Z=5:D$="1525F9D610":G$="11D6F92414":DEFCHR$(252)="E0A0A0A0E0":DEFCHR$(253)="00061F0000":DEFCHR$(255)=G$:DEFCHR$(254)=D$:DIMX(10):FORI=1TO3:X(I)=30+I:X(10-I)=-30-I:NEXT:X(I)=-1:X(6)=1:PRINTTAB(9)CHR$(254)" LABYRINTHE "CHR$(255);
20 FORI=0TO255:IFRAN#>.5THENPOKEI,232ELSEPOKEI,32
30 NEXT:POKE240,219:POKE30,252:POKE193,253:FORE=0TO255STEP32:POKEE,134:POKEE+31,134:NEXT:A=15:POKEA,255
40 LOCATEA MOD32-1,INT(A/32):PRINTCHR$(0);
50 $=INPUT$(1,@):S=0:IFASC($)=14THENS=1:$=INPUT$(1,@)
60 W=VAL($):IFS=1THEN80
70 ON W GOTO140,90,150,140,90,150,140,90,150
75 GOTO40
80 IFZ=0OR W=5THEN40ELSE120
90 B=PEEK(A+X(W)):IFB=252OR B=25
3THENC=C+1ELSEIFB=219AND C=2THENPOKEA,0:POKE240,255:PRINTCHR$(0);:GOSUB160:LOCATEA MOD32-1,INT(A/32):PRINT" ";:DEFCHR$(255)="E0A6BFA0E0":GOSUB160:GOTO170
100 B=A+X(W):IFB>0AND B<255AND PEEKB<>232AND PEEKB<>134THENPOKEA,0:A=B:POKEA,255
110 GOTO40
120 Z=Z-1:B=A+X(W):IFB>0AND B<255AND PEEKB<>134THENPOKEB,46
130 GOTO90
140 DEFCHR$(255)=G$:GOTO90
150 DEFCHR$(255)=D$:GOTO90
160 FORJ=1TO500:NEXTJ:RETURN
170 DEFCHR$(255)="FF828292FF":GOSUB160:DEFCHR$(255)="FF82FFFFFF":GOSUB160:CLS:DEFCHR$(254)=G$:DEFCHR$(255)=D$:PRINTTAB(4)CHR$(255)" Bravo vous avez gagne "CHR$(254):END